
	DEFINE VARIABLE pgmlevel AS INTEGER INITIAL 1.
	DEFINE VARIABLE pgmstack AS CHARACTER.

	REPEAT WHILE (PROGRAM-NAME(pgmlevel) <> ?):
		pgmstack = pgmstack + string(pgmlevel, "99") + ":" + program-name(pgmlevel) + "~r~n".
		pgmlevel = pgmlevel + 1.
	END.
	
	MESSAGE pgmstack VIEW-AS ALERT-BOX INFORMATION.
